( 



CONTROL DATA* 
< 6000 SERIES COMPUTER SYSTEMS 

( BASIC Language Reference Manual 

c 
c 
( 
( 
c 



[ 



c 
c 
c 
c 
c 
c 
c 
c 

( 




REVISION RECORD 



REVISION 



(2-13-70) 



DESCRIPTION 



Original printing. 



Publication No. 
60305000 



Additional copies of this manual may be 
obtained from the nearest Control Data 
Corporation sales office. 



© 



1970 



Control Data Corporation 

Printed in the United States of America 



Address comments concerning 
this manual to: 

CONTROL DATA CORPORATION 

Documentation Department 

215 MOFFETT PARK DRIVE 
SUNNYVALE, CALIFORNIA 94086 

or use Comment Sheet in the 
back of this manual 



f 

€ 

I 
4 
I 
4 
4 
4 
4 

i 

I 
I 
I 
< 
4 
4 
4 



I 



( 
( 
c 

{ 

( 
c 
c 
c 
c 
c 
c 
c 
c 

( 



PREFACE 
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Methods employed to write, compile and execute BASIC programs in both remote 

C terminal and local batch environments are discussed in detail. To simplify 

the user's task, terms have been narrowly defined and are not generally 
applicable outside the immediate context. 



This manual describes the BASIC programming language for CONTROL DATA® 6000 
Series Computers. 



60305000 A 



( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 

I 

i 
i 
i 
i 
i 
i 

c 
( 



CONTENTS 



PREFACE iii 

INTRODUCTION vii 

1 ELEMENTS OF THE BASIC 
LANGUAGE 1_1 

Character Set l-l 

Operands 1-1 

Constants l-l 

Variables 1-2 

Operators 1-3 

Arithmetic Expressions 1-3 

Relational Expressions 1-5 

2 BASIC STATEMENTS 2-1 



BASIC Programming 


2-1 


Line Numbers 


2-1 


Statement Format 


2-1 


BASIC Statements 


2-2 


DIM Statement 


2-2 


LET Statement 


2-3 


GO TO Statement 


2-4 


IF Statement 


2-4 


FOR and NEXT 




Statements 


2-4 


END Statement 


2-7 


STOP Statement 


2-7 


REM Statement 


2-7 



3 FUNCTIONS AND SUBROUTINES 3-1 

Standard Functions 3-2 

User Functions 3-2 

DEF Statement 3-3 

Subroutines 3-3 

GOSUB and RETURN 

Statements 3-3 

4 BASIC INPUT/OUTPUT 
STATEMENTS 4_1 

Internal Data File 

Input/Output 4-1 

DATA Statement 4-1 

READ Statement 4-1 

RESTORE Statement 4-2 

NODATA Statement 4-3 

Terminal Input/Output 4-3 

PRINT Statement 4-3 

INPUT Statement 4-7 



60305000 A 



File Input/Output 4-7 
READ FILE and WRITE 

FILE Statements 4-8 
INPUT FILE and PRINT 

FILE Statements 4-8 
RESTORE FILE 

Statement 4-9 
NODATA FILE 

Statement 4-9 

5 MATRIX OPERATIONS 5-1 

Matrix Arithmetic 5-1 

Matrix Functions 5-1 

Matrix Input/Output 5-2 

MAT READ Statement 5-2 

MAT PRINT Statement 5-3 

6 BASIC BATCH OPERATION 6-1 

BASIC Control Card 6-1 

Sample BATCH Jobs 6-2 

7 BASIC TERMINAL OPERATION 7-1 

INTERCOM I Terminals 7-1 

Teletype 7-1 

CRT Terminal 7-2 

Entering INTERCOM I 7-3 

Command Mode 7-3 

SETUP 7-4 

Entering BASIC 7-4 

BASIC Operations 7-5 

SETUP Directives 7-5 

INTERCOM I Commands 7-7 

Leaving INTERCOM I 7-8 

Sample Terminal Session 7-8 



APPENDIX A CHARACTER SET A-l 

APPENDIX B DIAGNOSTICS B-l 

APPENDIX C INDEX OF BASIC 

STATEMENTS C-l 

APPENDIX D INDEX OF 

INTERCOM I 
COMMANDS AND 
DIRECTIVES D-l 



( 
c 
( 
f 

c 
c 
c 
c 
c 

I 

( 
c 
( 
c 
c 
c 
c 
c 
c 



f 



INTRODUCTION 



BASIC (beginner's all-purpose symbolic instruction code) enables the layman to 
write programs in a language resembling standard mathematical notation. 
Because of its simplicity and f lexibil ity — as well as its precision — BASIC 
is used by programmers and nonprogrammers alike. 

Designed and implemented at Dartmouth College, under the direction of 
Professors John G. Kemeny and Thomas E. Kurtz, the original version of BASIC 
is known as Dartmouth BASIC. CONTROL DATA'S version (BASIC 1.0), developed 
for use with CONTROL DATA 6000 Series Computers, provides optimum 
compatibility with the Dartmouth version. 

BASIC is commonly used in time sharing environments where a number of users 
can gain simultaneous computer access; input is generated at a remote 
terminal, such as an electric typewriter or similar keying device, and is 
transmitted through telephone lines to a central computer facility. 

The language designation, BASIC, refers to both the source language in which a 
programmer codes his instructions, and to the medium that translates source 
code into a form recognizable to a particular computer. The translating 
medium for BASIC is a program called a compiler. During the translation 
process source code emerges as object code— the form in which the computer 
executes all instructions. 

BASIC 1.0 incorporates a communication feature which enables the user to 
modify his program or correct compilation errors at the terminal prior to 
program execution. Terminal mode may be bypassed in favor of batch mode; jobs 
may be submitted at the terminal and executed in direct sequence at the 
central computer. 

An integral part of every computer system is the operating system. Synonymous 
with supervisory or executive systems, operating systems generally consist of 
a collection of program sets which oversee and control the performance of the 
total system. The operating system for CONTROL DATA 6000 Series Computers is 
SCOPE (supervisory control of program execution). Remote terminal processing 
is controlled through INTERCOM I- an adjunct to the SCOPE operating system 
Detailed information relative to SCOPE and INTERCOM is presented in the 
following publications: 

6000 Series Computer System Reference Manual (Publication No. 60100000) 

SCOPE 3 Reference Manual (Publication No. 60189400) 

6000 Series Computer System INTERCOM I Reference Manual (Publication No 
6030S300) 
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ELEMENTS OF THE BASIC LANGUAGE 



The BASIC language is oriented toward numerical problem solving; as such, it 
is primarily concerned with the evaluation of expressions. The following 
paragraphs describe the components and the methods by which they may be 
combined to form BASIC expressions. 

CHARACTER SET 

The BASIC language utilizes all alphanumeric characters (A to Z and to 9). 
Special characters which serve as separators, delimiters, or operators are 
discussed in sections covering their usage. 

The representation of BASIC symbols may vary depending on the character set of 
different hardware devices. 

All BASIC characters acceptable to the 6000 Series and their internal 
representation (display code) are listed in Appendix A. 



OPERANDS 

BASIC uses three classes of operands: constant values, variable values and 
functions. Refer to section 3 for a description of BASIC functions. 
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CONSTANTS 

BASIC recognizes numeric and string constants. Numeric constants represent 
values which do not change during program execution. String constants 
represent information to be printed during program execution. 

Numeric Constants 

Numeric constants, written as strings of signed or unsigned numeric 
characters, can be expressed with or without decimal points. The following 
are examples of valid numeric constants: 



1 



34.5 



33333 



•10003 



•23.445 



6. 



-.3 



-0.3 



A numeric constant may contain any number of numeric characters; but the value 
of the constant must not exceed the capacity of the computer, approximately 
1E-308 to 1E337. The computer is capable of representing values with an 
accuracy of about 14 significant digits. 
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Very large or small numbers utilize a shorthand form of expression. The 
numeric constant is followed by an exponent symbol, E. The number .000789 
could be expressed as 7.89E-4. The letter E signifies "times 10 to the power 



of." 



7.89E-4 is equivalent to 7.89x10"' 



Examples : 

-1.45E3 1.0032E+20 0.0234E-12 123456E-11 

String Constants 

String constants serve as comments or messages. Restricted to PRINT 
statements, their usage is described in section 4. 

VARIABLES 

A variable represents a quantity having a value that may change during program M 
execution. The size of the value of a variable must not exceed the capacity m 
of the computer, which is capable of representing values from approximately 
1E-308 to 1E337. All variables, represented internally as floating point ^ 
numbers, are preset to zero at the beginning of program execution. BASIC ^ 
variables are written as identifiers; each consists of a single alphabetic 
character with or without a succeeding single numeric character. They must 
no*t exceed two characters. For example: 



A Z3 C9 E 
The following types are not allowed: 
B23 49 G* AA 

Scalar Variables 



A (sl,s2,s3) 



€ 
C 
I 



I 



I 



A scalar variable has a single value and is written as an identifier without ^ 
subscripts. Whenever an identifier is used in an expression, the computer 
substitutes its current value. 

I 

Array Variables 

An array variable designates the elements of an array such as a vector or a ^ 
matrix; it is written as an identifier with subscripts. The general form of 
the array variable is: 



4 

Up to three subscripts are allowed. They are separated by commas and enclosed 

in parentheses. Each subscript may be an expression of any complexity. The ^ 

following array variables are acceptable: 

A(l) B(2,S) G3(X*5+A3f9,7*(A+l)) X (A5 t 6*4 , 3* ( Y+2) , C ) £ 

< 
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The individual items in an array, called elements, indicate the position of a 
value within the array. If the subscript is an arithmetic expression, it will 
be evaluated and converted to an integer by truncating before it is used as a 
subscript. 

Variables in BASIC are normally declared implicitly. Unless otherwise 
specified, each subscript of an array variable is assumed to have bounds of 
and 10. Thus, an array variable with one subscript has 11 elements, two 
subscripts has 121 elements, and three subscripts has 1331 elements. With a 
DIM statement (refer to section 2), variables need be declared only if a 
subscript value greater than 10 is required, or if the programmer wishes to 
save space by dimensioning an array to have an upper bound of less than 10. 

The same identifier may be used to denote both a scalar variable and an array 
variable within the same BASIC program. However, two or more array variables 
may not have the same identifier if the number of subscripts varies. 

OPERATORS 

Arithmetic operators , used with constants, variables, and parentheses 'to form 
expressions, are listed below: 

Operator Definition 

tor ** exponentiation 

* multiplication 

/ division 

+ addition 

sub tract /negation 
Relational operators , used to compare two expressions, are as follows: 
Operator Definition 

equal to 

< > or >< not equal to 
> greater than 

< less than 

>= or = > greater than or equal to 
<= or = < less than or equal to 

ARITHMETIC EXPRESSIONS 

An arithmetic expression (or formula) is a rule for computing a value. 
Expressions are composed of alternating operands and arithmetic operators, 
beginning and ending with an operand. During evaluation of the expression, 
the current values of the operands are used to compute a single value 
according to the rules for executing the arithmetic operators. 
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Arithmetic operators may not appear in sequence and must be explicitly stated. 
The following are invalid arithmetic expressions: 



X + + Y 



(X + l)(Y + 2) 



Rule for precedence of arithmetic operations: Exponentiation is performed 
first, followed by multiplication or division, and finally addition or 
subtraction is performed. Expressions are evaluated from left to right. 

Example : 

X+(Y+(A+3)) 

This expression is evaluated in this order: 

1. A + 3 

2. Y + the result of 1 

3. X + the result of 2 

Left and right parentheses must balance within an expression. Redundant 
parentheses have no effect; for example, (X), X and ((X)) are all 
representations of the same expression. 

Any expression may be preceded by a + or - arithmetic (unary) operator. They 
are called unary because they affect only one variable or constant. To 
maintain compatibility with Dartmouth BASIC, unary operations are performed 
before other arithmetic operations. For example, the value of -2 t 2 is +4. 
The following are examples of valid arithmetic expressions: 

A + B*C/D tE 

Al(3, 1+4) t2.6-G3/Z 

A + B tC 

(A (I .J.K)+3.95)*(G3+Bf(C2+3)) 

G2(A(1,4)+3,I2) t(D4 t(X+3)) 

-3. 14*Rt2 

C*(-G2(l,3) -D4) 

A8(3) t(-49)+B(2, -X+15) 
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RELATIONAL EXPRESSIONS 

Relational expressions are formed by operands, arithmetic expressions and/or 
mathematical functions joined by relational operators. When evaluated, 
relational expressions may have one of two values— true or false. A 
relational expression may have only one relational operator. The following 
are legal relational expressions: 

X >COS(B) 

(F+I 6) ^ B/S 

Relational expressions compare two values or expressions. They may appear 
only in IF statements (section 2). 
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BASIC STATEMENTS 



BASIC PROGRAMMING 

A BASIC program is composed of statements formed by the components of the 
BASIC language. Each statement is a step in the solution of the program's 
problem and tells the computer how to evaluate an expression and assign its 
results. Each statement occupies one line and cannot be continued to another 
line . 

LINE NUMBERS 

Each BASIC statement must begin with a unique line number of one to five 
numeric characters. These numbers identify statements in the program and 
provide a means for editing the program at the terminal. 

The line number is assumed to terminate at the first non-numeric character. 
Embedded blanks are ignored and leading zeros are not significant; 1, 01, and 
001 are all considered the same line number. Line numbers must be integers 
within the range to 99999. 

The BASIC compiler checks for missing or duplicated line numbers. Further, 
the compiler ascertains whether line numbers are in ascending order. When a 
duplicate line number is encountered in a program entered from a terminal, the 
INTERCOM I system will arrange the. statements in ascending order and interpret 
the duplicate line as a replacement for the first line of the same number. 
When a program is submitted to the SCOPE batch of jobs, the programmer must 
insure that line numbers appear in ascending order; as statements are 
processed as they are received. 

Throughout this manual a line number is assumed for each BASIC statement. 

STATEMENT FORMAT 

A statement consists of up to 72 characters of information written in columns 
1-72 of a punched card or typed at a terminal keyboard for direct transmission 
to the computer. A statement on a punched card terminates at column 72. A 
statement typed in at a terminal terminates when the carriage return key is 
pressed; in any case, no more than 72 characters are translated by the BASIC 
compiler. 

A BASIC statement may begin and end at any character position. Blanks have no 
significance, except within string constants; and they may be included or 
omitted without changing the meaning of the statement. 
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BASIC STATEMENTS 



DIM STATEMENT 



Examples of acceptable DIM statements: 



DIM G2 (5, 6,7) , A0(9, 2) reserves space for a three dimensional array G2 with 
336 elements and a two dimensional array AO with 30 elements. 
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After the line number, each BASIC statement begins with a word which indicates M 

the statement type. The following are the simple BASIC statements. Functions ^ 

and subroutines, matrix statements and input/output statements are discussed 
in subsequent chapters. 



€ 
t 



The DIM statement declares the dimensions of an array variable. Variables 
need a DIM statement if a subscript value greater than 10 is required. If the 

programmer wishes to save space, he also may use the DIM statement to — , 

dimension an array so that the upper bound is less than 10. ^g 



Format : 

DIM vl (il), v2(i2), v3(i3) , . . .vn(in) 

v Name of array variable 

i Upper limit of array, must be an unsigned integer 

Example : 

To declare a two dimensional array variable, A, with 
elements to 20 and to 5: 

DIM AC20.5) 

This statement reserves space for array A with 21*6 or 126 
elements. Each time A is used in the program, it must be 

UScu Wltil tWO SUuSCTIptS. 

DIM statements may appear anywhere in a program. If the same array variable ■ 
is declared more than once in the same program, the last declaration is used " 
for the entire program. 
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DIM X(5,5), B3(l,2), X 1 C 50) reserves space for a two dimensional array X 

with 36 elements, a two dimensional array B3 with 6 elements, and a one ■ 

dimensional array XI with 51 elements. 
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LET STATEMENT 

The LET statement assigns a value to a variable during the execution of a 
BASIC program. 

Formats : 

LET vl =v2=v3. . . =vn=e 

vl=v2=v3 . . ,=vn=e 

vi Variables 

e Expression 

Use of the word LET is optional. 

Example : 

LET X = 2 assigns the value 2 to the variable X 

X=Y=2 assigns the value 2 to both X and Y 

LET X=A*B assigns the value of the expression A*B to X 

The order of computation is left to right. Lefthand-side subscript 
expressions are evaluated before righthand subscript expressions (the latter 
are positioned after the final equal sign). 





Example : 




LET 1=1 


( 


LET A(I) =1=1+1 


is equivalent to 


c 


1 = 1 




A(I) = 1+1 


c 


I = 1+1 


c 


Examples : 


LET X = (A+B)*(C+D) 


c 


Y(1,A(3)) = Q = 2*3.14*R t 2 


. Al(G+99*Xf2) = 2*(X3+B4)*X(Q2,23t2) t(-8)+6 


c 




c 




c 
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GO TO STATEMENT 



Format : 

GO TO n 

n Line number of statement to which control transfers 

This statement causes th'e statement at the referenced line number to be 
executed. Normal sequential execution will follow from that point. If the GO 
TO references a non-executable statement, such as a DIM statement, the system 
will go to the next executable statement after the referenced statement and 
resume execution from there. 



If the relational expression is TRUE, program control transfers to the 
specified line number of the statement. If the relational expression is FALSE, 

^ 1. _ * __^-;_i -*-.u ^ :. _„ *_J 

Example : 

If 1=8 and J=4, the statement: 
IF 2*1 2 J t 2-1 THEN 165 



FOR AND NEXT STATEMENTS 

The FOR and NEXT statements allow repetition of specified portions of a 
program (loop) . 



t 



The GO TO statement transfers control from one point in a program to another, M 
and interrupts the normal sequence of instructions. ™ 



< 
< 

c 
I 

IF STATEMENT 

The IF statement specifies conditions to control the sequence of operations. ■ 

Format : 

IF r THEN n 

r Relational expression 

n Line number to which control transfers conditionally 



I 



i 



Causes the value 16 to be compared to 15. Since it is true that 16 is _ 
greater than 15, the next statement executed is at line number 165. ■ 
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Formats : 

FOR sv = el TO e2 

FOR sv = el TO e2 STEP e3 

sv Any scalar variable 

el Initial value assigned to sv 

e2 Maximum value sv can reach 

e3 Value by which sv is incremented when the NEXT statement is 
executed; if not specified, a step value of +1 is assumed. 

Format : 

NEXT sv 

sv Scalar variable used in the companion FOR statement 

The scalar variable must be the same in the FOR and NEXT statements; it is 
known as the control variable. 

When the FOR statement is executed, the expressions are evaluated; and their 
values are saved as initial, step, and final values of the loop. The control 
variable is assigned the initial value, and the statements between the FOR and 
NEXT statements are executed repeatedly. Each time the NEXT statement is 
reached, the value of the control variable is incremented or decremented by 
the step value (one if not specified) . The control value is compared to the 
final value. If the step value is positive, the loop is continued until the 
control value becomes greater than the final value. If the step value is 
negative, the loop is continued until the control value becomes less than the 
final value. In either case, the loop is complete; and execution continues in 
normal sequence, beginning with the statement following NEXT. 

Example of a BASIC loop routine: 

10 FOR X=l TO 11 STEP 2 

IS LET Y=X+1 

20 PRINT Y 

30 NEXT X 

4 END 

The successive values of X (1,3,5,7,9, and 11) will determine the value of 
Y, which will be output as the results of the routine. Statements 10 
through 30 will be repeated six times, once for each value assigned to X. 

The expressions in the FOR statement are evaluated only once— at the start of 
the loop. These values are not changed during execution of the loop, even 
though the values of the variables in the expressions may change. The value 
of the control variable, however, may be changed by statements within the 
loop; its latest value is always updated by the step value and is used in 
comparison to the final value. 



60305000 A 



2-5 



Example : 

10 FOR X=l TO 10 

20 LET X=X+1 

30 PRINT X 

40 NEXT X 

The FOR statement specifies that X will be incremented by a step value of 
+1 until it exceeds 10; however, the next statement also adds +1 to X 
which causes the counter variable X to be incremented by +2 each time it 
passes through the loop. 

If the initial value is greater than the final value and the step value is 
positive when the FOR statement is first entered, the loop is not executed; 
and control passes to the statement following the companion NEXT statement. 
Similarly, if the initial value is less than the final value and the step 
value is negative, the loop is not executed. However, in both cases the 
control variable retains the value it had before entrance to the loop. 

The following examples show the effect of FOR statements on control variables: 

Statement Values of Control Variable 

FOR X = -4 TO-2 STEP .5 -4 . , -3 . 5 , -3 . 0, -2 . 5 , -2 . 

FOR G= 6 TO 3 STEP -1 6, 5, 4, 3 

FOR Z= 5 TO 10 STEP -1 loop is not executed 



Nested Loops 



nS iiiusux'aLcu DeiOw, 
intersect each other. 



Correct : 
— FOR X.. 



'FOR Y. . 
'FOR Z. . . 
LNEXT Z 
•FOR Q. . 
.NEXT Q 
.NEXT Y 
NEXT X 



loops in&y COHLain iOOpSj uuncici, 

Incorrect : 

TOR X. . . 

'FOR Y 

.NEXT X 



.NEXT Y 
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GO TO Statements in Loops 

Loops may contain GO TO and other statements that jump outside the range of 
the loop. In this case, the loop terminates prematurely and the control 
variable retains its latest value. It is possible also for a GO TO statement 
to jump to a statement within a FOR loop; but since no check is made at 
compile or execution time to determine that a NEXT statement is executed 
before its corresponding FOR statement, the results are unpredictable. 

END STATEMENT 

The END statement signals termination of a program. Every program must have 
an END statement as the last and highest line number. When it is executed 
the program stops and control returns to the operating system. 

Format : 

END 

STOP STATEMENT 

The STOP statement halts program execution and returns control to the 
operating system. Unlike the END statement, the STOP statement may appear at 
any point in a program. 

Format : 

STOP 

STOP is equivalent to a GO TO line number statement that is the program's END 
statement . 

REM STATEMENT 

A programmer uses the REM statement to insert comments in the body of the 
program. 

Format : 

REM any string of valid 6000 series display code characters 

REM is non-executable and has no effect on the execution and results of a 
program. 



60305000 A 2-7 



i 



( 

( 
( 
( 
( 
( 
c 
( 
( 
c 

( 

( 
( 
( 
c 
c 
c 
c 

c 



( 



FUNCTIONS AND SUBROUTINES 



STANDARD FUNCTIONS 

The standard mathematical functions evaluated by BASIC are described below: 
Function Meaning 

SIN ( X ) Find the sine of x expressed as an angle in radians 

COX(s) Find the cosine of x expressed in radians 

TAN(x) Find the tangent of x 

ATN(x) Find the arctangent of x in the principal value range 

- 7r/2 tO + 7T/2 

EXP(x) Find the value of e x 

LOG(x) Find the natural logarithm of x 

ABS(x) Find the absolute value of x 

SQR(x) Find the square root of x 

INT(x) Find the largest integer not greater than x 

Example: INT(5.95) = 5 and INT(-S.9S) = -6 

SGN(x) Assign a value of 1 if x is positive; if it is 0; 

or -1 if x is negative 

RDN(x) Find a random number between and 1. If the value of 

x is 0, a standard random number sequence is used. If 
x is positive, its value is used to initiate a random 
number sequence. If negative, a random number is 
generated to initiate the random number sequence. 

In all the above functions, x can be any expression. 

A function is an operand and may be used in any expression wherever a variable 

or numeric constant may be used. Like a scalar variable, a function has a 

single value; unlike a variable, some calculation may be required to produce 

that value. When a function is written in a program, it is essentially a 
request for a procedure or routine to compute a value. 

In the above list, the quantity x is called the argument or parameter of the 
function. The value determined by the function may be directly dependent on 
this argument. A function is called in an expression by writing the name of 
the function followed by the argument in parentheses. The parameter may be an 
arithmetic expression of any complexity and may include other functions; 
however, no function call may contain more than one parameter. 
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The following are acceptable expressions using mathematical functions: 
SIN(A-b) 

ABS(48*2 ,3t 8/44) 
C0S(12+SIN(Y)) 

USER FUNCTIONS 

In addition to the standard functions provided by BASIC, a programmer may 
define new functions with the following statement. 

DEF STATEMENT 

To avoid repetition of coding, a programmer can use the DEF statement to 
define a new function to be used throughout a program. The function name is 
restricted to three alphabetic characters, the first two of which must be FN; 
therefore, 26 user function names (FNA through FNZ) are possible. 

Format : 

DEF FNa (sv) = e 

a Alphabetic character completing user function name 

sv Scalar variable 

e Expression to be evaluated by function 
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The variable sv is the formal parameter of the user function. It reserves a 

place for the variable to be used when the function is called in the program. 

The value of the argument in the function call is used in evaluating the 

expression. Every user function must have one parameter. The formal 

parameter however, need not appear in the expression on the righthand side of 

the DEF statement. In cases where it does appear in this position, it M 

represents a dummy argument and has no effect on computation. ™ 



€ 



Each time the user function is needed in a program, the expression on the 

righthand side of the DEF statement is evaluated and the resultant value is 

used at that point in the program. This value may vary depending on the value 

of the function argument. The expression may be any mathematical formula or 

function or combination of both; however, its length is restricted to the M 

remainder of the statement line. ™ 

A DEF statement may appear anywhere in a program, not necessarily before its 
corresponding function call. As the DEF statement may contain other function 
calls, functions can call each other, but they are not recursive; that is, 
they cannot call themselves. A function may be redefined within a program; 
its most recent definition will be used for each reference. 
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Example : 

The following statement defines a function to calculate the area of a 
c ircle : 

DEF FNC(D) = (3.14159*Dt2)/4 

The function FNC may be used anywhere in the same program: 

Y(S) = X3+FNC(SIN(X2)*H4) 

SUBROUTINES 

Subroutines represent complex sets of repetitious operations performed at 
various points throughout a program. Methods for subroutine use are described 
below: 

GOSUB AND RETURN STATEMENTS 

The GOSUB statement directs program control to the first line of a subroutine. 
The RETURN statement signals the end of the subroutine and returns control to 
the line following the GOSUB statement. 

Formats : 

GOSUB n 

n First line number of the subroutine 

RETURN 

Example : 

5 GOSUB 100 
10 - 

100 

* — — — — — — — — — 

150 RETURN 

In the above example, statement 5 diverts program control to the 
subroutine beginning at line number 100. Statement 150, at the end of the 
subroutine, returns control to the main program, resuming execution at 
statement 10. 

Subroutines also may contain GOSUB statements, and thus call other 
subroutines. Recursion is allowed; subroutines may call themselves. GOSUB 
statements may nest subroutines to a maximum depth of 40. 
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BASIC INPUT/OUTPUT STATEMENTS 



BASIC provides the means to specify internal data files and to access the 
associated data. Input statements enable the programmer to submit raw data at 
a terminal; output statements permit him to receive printed results at the 
terminal. File input/output statements are also available. 

INTERNAL DATA FILE INPUT/OUTPUT 

DATA STATEMENT 

The DATA statement creates a file of data internal to a BASIC program. In 
conjunction with a READ statement, it performs essentially as a LET statement; 
a value is assigned to a variable. 

Format : 

DATA cl,c2,c3, . . .en 

ci Signed or unsigned numeric constants 

Any number of DATA statements may appear anywhere in a program; the BASIC 
compiler considers them contiguous and places them in one data block in 
sequential order. 



f Examples: 

DATA 2, 3, 4, 4, 5, 6, 
f DATA -3.1,4.5,-5.678,2.31 

DATA -3.596E-2, 0, 0, 987 



Like the DIM, REM and DEF statements, DATA statements are non- executable and 
have no effect on the results of a program if they are encountered in normal 
sequence . 

READ STATEMENT 

The READ statement uses values created by DATA statements to assign values to 
certain variables. The READ statement always is used in conjunction with a 
DATA statement. 

Format : 

READ vl ,v2,v3, . . .vn 

vi Variables 
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The values of the. constants in the DATA statements are assigned in sequence to 

the variables listed with the READ statement. * ** 

Examples : 

READ X M 

READ X(I), B4, Y, N, 0, P, E 

The BASIC system maintains a pointer to the data block created by all DATA ^ 
statements within a given program. Each time a READ statement lists a 
variable, a value from the data block is assigned to it; and the pointer moves 
forward through the list of values. The values of constants in DATA M 
statements are assigned in sequence to the corresponding variables listed in ^ 
the READ statement. 



Example : 

DATA 2,3.4,1,0.12,0 

READ A,C,Y,X 

DATA 6, 7, 8, 9, 110 

READ B(K), J4 
The above four lines of coding are equivalent to: 

LET A = 2 
, LET C = 3.4 

LET Y = 1 

LET X = 0.12 

LET B(K) = 

LET J4 = 6 

Extra constants not matched by variables in the READ statements are 

inconsequential. However, if the READ statement specifies more variables than 

there are constants, constituting an attempt to read past the end of a data 
block, the program will be terminated. 

RESTORE STATEMENT 

The RESTORE statement returns the data block pointer to the first value in the 
block . 

Format : 

RESTORE 

Whenever RESTORE is encountered, the next unsatisfied variable in a READ list 
is assigned as the first constant of the data block. 
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Example : 

DATA 1,2,3 

READ A,B,C 

READ D 

This combination of READ and DATA statements alone would cause the program to 
terminate. If the second READ were preceded by a RESTORE statement, however, 
the previously unsatisfied variable, D, would be assigned the value 1; and 
program execution would continue. 

NODATA STATEMENT 

The NODATA statement should precede a READ statement. It determines whether 
the data block pointer has been moved beyond the end of the data block. 

Format : 

NODATA n 

n Statement line number 

If data in the block is exhausted, program control will transfer to the 
specified line number, otherwise the next sequential statement is executed. 

TERMINAL INPUT/OUTPUT 

Printed output is received at the terminal by using the PRINT statement. Data 
is input at a terminal by using the INPUT statement. (INPUT statements are 
not submitted in batch mode.) 

PRINT STATEMENT 

The PRINT statement controls output of expressions and constants at a user 
terminal. All variables in the PRINT statement must have had values assigned 
before execution of the statement. 

Format: 

PRINT xld x2d x3d. . .xnd 

xi Expressions or string constant 

d Delimiter (comma or semicolon). 
A final delimiter is optional. 
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Number Formats 



Expressions are evaluated and printed out in sequence at a terminal. Their 

values are printed in one of three standard number formats, depending on^the 

size of the number. String constants are printed without quotation marks, 
otherwise, they are printed exactly as they appear in PRINT statements. 



An .nnnnnAEAnnn 



c 

€ 



String Constants 

A string constant is any number of valid 6000 series display code characters M 
enclosed in quotation marks. Blanks may be included; quotation marks may not. ^ 
The following are acceptable string constants: 



f 
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"THIS IS A BASIC STRING CONSTANT" 

"123.45678" 

The following are incorrect: 

"TOO MANY QUOTATION "MARKS" 

"NO CLOSING MARKS 

String constants serve as comments or messages and are used only in M 
conjunction with PRINT statements. For example: ™ 

LET X=Y=Z=2 M 

PRINT "ANSWER","X AND Z="Z, "X*Y* Z="X*Y* Z 

This coding would produce the response: £ 

ANSWER X AND Z=2 X*Y*Z=8 



{ 



i 

i 



In the following standard number formats, n signifies a numeric character. 

For an integral number of less than nine digits, this format is used: 

Annnnnnnnn 

Leading zeros are suppressed and the number is printed left justified. ^ 

If the number is not an integer and can be expressed in six digits, the 
following format is used: 

Annnnnn (where one n is a decimal point) 

The decimal point is floating; leading zeros before and trailing zeros ■ 
after the decimal point are suppressed. The number is left justified. 

For all other numbers, the following format is used: 



c 



I 



Leading zeros in the exponent are suppressed, and the exponent is left ■ 
justified. 

I 
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Print Line Zoning 

The print line normally is divided into five zones of 15 positions each. The 

comma in the PRINT statement is a signal to move to the next print zone; or if 

the fifth zone has been filled, the move is to the first zone on the next 
1 ine . 

Example: 

PRINT 4000, 303, 0051,432, 1.000, 5678.4 

Output format: 

4000 303 51 

5678.4 



432 



Asemicolon is used in the PRINT statement instead of a comma to reduce the 
size of print zones. The print zone is shortened to 6 spaces if the 
previously printed number is 1 to 3 characters; 9 spaces for numbers of 4 to 6 
characters; 12 spaces for numbers of 7 to 9 characters; and the normal 15 
spaces for other numbers. If a string constant terminates with a semicolon, 
the next zone is assumed to begin immediately thereafter. If no delimiter 
follows a string constant, a semicolon is assumed. Commas and semicolons may 
be intermixed in a PRINT statement. 

A delimiter at the end of a PRINT statement causes the next PRINT statement to 
continue printing at the same line, or next available zone. 

Example : 

PRINT 300,400,500,600, 
PRINT 700 



Produces 



300 



400 



500 



600 



700 



If a PRINT statement terminates without a delimiter, the next PRINT statement 
will begin its output on a new line. 

Example : 

PRINT 200,300,400,500 

PRINT 600,700 

Produces : 

200 300 400 

600 700 



500 



The statement, PRINT, by itself either will cause a whole line to be skipped, 
or it will nullify the effect of a delimiter on the previous PRINT statement 
line . 
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Examples : 






FOR I = 1 to 15 






PRINT I 






NEXT I 






Produces (prints) : 






1 






2 






3 






etc . 






If the second statement 


were 


PRINT I, 


Result : 






1 2 




3 


6 7 




8 


11 12 




13 


If it were PRINT I; 






Result: 






12 3 4 5 


6 


7 8 


11 12 13 14 15 






The program: 






FOR X = 1 TO 100 






PRINT "X = ";X 






PRINT "X2 = ";X2 






NEXT X 






would print: 






X = 1 






X2 = 1 






etc . 







4 
9 
14 



10 



5 

10 

15 



However, if the first PRINT statement were terminated by a comma it would 
print : 



X = 1 



X2 = 1 



X = 2 



X2 = 4 



etc , 
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INPUT STATEMENT 

The INPUT statement enables the programmer to assign values to variables from 
the terminal during program execution. 

Format : 

INPUT vl,v2,v3, .. .vn 

vi Variables 

When a program in execution encounters this statement, a question mark is 
printed at the terminal. To satisfy the input request, the operator or user 
must enter data in exactly the same format at it appears in a DATA statement. 
The correct response to an input request is a string of optionally signed 
numeric constants, separated by commas, and terminated by a carriage return. 

If the user supplies insufficient data, the question mark is iterated until 

the request is satisfied. If the user makes a typing error, or supplies too 

much data, a diagnostic message is issued. The user should retype the entire 
response to the input request. 

Delimiters in an input response may be any BASIC character except a digit, 
period, + or - or the letter E. Redundant delimiters are ignored. 

Generally a PRINT statement is used with an INPUT request, to inform the user 
of the response required. 

Exampl e : 

PRINT "WHAT IS THE VALUE OF X"; 

INPUT X 

would produce at the terminal: 

WHAT IS THE VALUE OF X? 

The user should respond by typing in one number immediately after the 
question mark. 

INPUT statements generally are used for entering only small amounts of data, 
as entering data from the terminal is time consuming. 

FILE INPUT/OUTPUT 

BASIC mass storage file input and output statements correspond to the READ and 
DATA statements for internal data files, and INPUT and OUTPUT statements for 
terminal input /output . The file I/O statements are READ FILE and WRITE FILE, 
INPUT FILE, and PRINT FILE. These statements must be used in pairs. An input 
statement must be used to read back data written by a print statement; and a 
read statement must be used for accessing data written by a write statement. 
Any attempt to read a file produced by a print statement will cause 
unpredictable results. 

A maximum of three different file names may be used in a BASIC program. Files 
referenced by BASIC programs must be assigned to a mass storage' device . 
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READ FILE AND WRITE FILE STATEMENTS 

The READ FILE and WRITE FILE statements are analogous to the READ and DATA ^ 

STATEMENTS for internal data files. 



Formats: 

READ FILE (file name) vl , v2 , v3 , . . . vn 

(file name) Any valid SCOPE file 

vi Variables 

WRITE FILE (file name) xl , x2 , x3 , . . . xn 

(file name) Any valid SCOPE file 

xi Expressions 

The WRITE FILE statement writes out the values of the expressions sequentially 
onto the file specified by the file name. The values are written in internal 
format and string constants are not allowed. As with DATA statements, 
consecutive WRITE FILE statements generate one contiguous block of data on the 
file. 

The data can then be read by the READ FILE statement as if the file were an 
internal data file. 

INPUT FILE AND PRINT FILE STATEMENTS 

The INPUT FILE and PRINT FILE statements are identical to the INPUT and PRINT 
statements for terminal input/output. 
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Formats: 

INPUT FILE (file name) vl , v2, v3, . . . vn 

(file name) Any valid SCOPE file 

vi Variables 

PRINT FILE (file name) xl dx2dx3d. . . xn(d) 

(file name) Any valid SCOPE file ■ 

xi Expressions or string constants 

d Comma or semicolon; optional at end of list 
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These statements function exactly as for terminal input/output except that an £ 
error in the data terminates the program. ~ 

I 
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RESTORE FILE STATEMENT 

CThe RESTORE FILE statement operates exactly as it does for internal dat; 
f 1 1 PC 



( 



c 



files 
Format : 

RESTORE FILE (file name) 



r The effect of this statement is to set the file named to its beginning of 
information. When the type of input/output on a file is to be mixed, the 
RESTORE FILE statement is required. 

c 

NODATA FILE STATEMENT 

CThe NODATA FILE statement is identical to the NODATA statement for internal 
data filet; 



data files, 
Format : 

NODATA FILE (file name) line number 



r If the file named is positioned at its end of information, this statement 

>t transfers program control to the statement that appears at the specified line 

number . 
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MATRIX OPERATIONS 



Although it is possible to construct programs to perform matrix operations 
with the ordinary statements of the language, BASIC also provides a set of 
statements explicitly for matrix operations. 

Matrix statements are restricted to one and two dimensional arrays. A one 
dimensional array is always treated as a column vector. To obtain a row 
vector, a two dimensional array must be specified with only one row. 

Example : 

DIM X(19) , Y(0,19), Z(19,19) 

This statement introduces matrix X with a column of 20 elements, matrix Y 
with one row of 20 elements, and matrix Z with 20 rows and 20 columns of 
element s . 

If a variable used in a matrix statement has not appeared in a DIM statement, 
it is assumed to be two dimensional with element ranges from to 10. 



MATRIX ARITHMETIC 

Matrix Statement 

MAT Ml = M2+M3 

MAT Ml = M2-M3 

MAT Ml = M2*M3 

MAT Ml = (expression)*M2 



In 



Arithmetic Operation 

addition 

subtraction 

multipl ication 

scalar multiplication by value of the 
express ion 



each of the above statements M may be any identifier; each identifier 
represents an array variable. The dimensions of the arrays must conform for 
each operation, and none of the operands of a matrix multiplication may be 
used as the result of that matrix multiplication. 

MATRIX FUNCTIONS 

Matrices can be inverted or transposed by using the INV (inversion) and TRN 
(transposition) functions. 

Formats : 

MAT Ml = INV(M2) 

MAT Ml = TRN(M2) 

M Array variable 
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The two matrices must conform for inversion or transposition, and inversion 
and transposition in place is not allowed. 

Example : 

40 DIM A(5,2) , B(8,4), 0(5,6) 

50 MAT A = INV(B) 

80 MAT C = TRN(C) 

Statement 50 is incorrect as the dimensions of matrices A and B do not 
conform; statement 80 ' is incorrect as the operand of a matrix statement 
may not be used as a result of the same statement. 

The maximum size of an inversion matrix is 50 by 50. 

The following three matrix statements may be used to generate a matrix of all 
zeros, all ones, or to assign ones to the elements along the principal 
diagonal and zeros elsewhere (identity matrix): 

MAT M = ZER [(xl[ ,x2] )] 

MAT M = C0N[ (xl[,x2l )] 

MAT M = IDN [(xl[ ,x2])] 

M Array variable 

x Expressions 

Items enclosed in brackets are optional. 

Parenthesized expressions can be used to redimension the matrix at execution 

time. Expressions are evaluated and used to reset the values of the upper ^ 

limits of the number of elements in the matrix. However, a matrix must not be 

redimensioned to be larger than its initial value, whether established by 

default or a DIM statement or redimensioned to change its number of 

dimensions. A matrix used in an identity statement must be a square. 



Exampl es : 

MAT Z = ZER(Y*4,6) 
MAT B = IDN(Xt2) 
MAT A = CON 

MATRIX INPUT/OUTPUT 

MAT READ STATEMENT 

The MAT READ statement causes information on the internal data file to be read 
into a matrix. 
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Format : 

MAT READ A [Cxi [ , x2] )] , B [ (x3 [ , x4] ) ] , C . . . 

x Expressions 

Items in brackets are optional. 

Expressions in parentheses indicate the matrix may be redimensioned at 
execution time. Evaluated expressions are used to reset the values of the 
upper limits as with the ZER, CON and IDN functions. 

The MAT READ statement completely fills the matrices specified from the 
internal data file generated by the DATA statements. Matrices are read in row 
order . 

Example: matrix A (3,3) is read as follows: 

AC0 3 0), AC0.1), A(0,2), A(0,3), A(1,0), 

A(l,l), A(l,2)etc. 

AAAT PRINT STATEMENT 

The MAT PRINT statement is used to write matrices. 

Format : 

MAT PRINT A d B d C d . . . 

d Comma or semicolon 

Matrices are printed out in row order using the same rules as for the normal 
PRINT statement. The delimiter specifies the print zone for each element of 
the matrix. BASIC automatically generates a line of blanks between each row. 
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BASIC BATCH OPERATION 
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K=filename Diagnostics and execution output on file specified. 

C I Source input will be from the file INPUT; obtains if I 

is not specified. 

( 



BASIC programs may be submitted to the SCOPE input queue for processing; under 
this mode of processing, all terminal I/O is inhibited. 

BASIC CONTROL CARD 

Programs submitted for batch processing must include a BASIC control card to 
call the BASIC compiler from the SCOPE library. 

Fo rmat : 

BASIC (parameters) 

Parameters on the BASIC control card indicate the fol lowing opt ions : 

L Source listing, diagnostics and execution output will be 

on the file OUTPUT. 

L=filename Source listing, diagnostics and execution output will be 
on file indicated. 

K Diagnostics and execution output will be on the file 

OUTPUT; obtains if K is omitted. 



I=filename Source input will be from the file specified. 

B Relocatable code will be on the LGO file; if B is not 

specified, no relocatable code is produced. 

B=filename Relocatable code will be on the file specified. 

A Assembly listing will be on the file OUTPUT; if omitted, 

no listing is produced. 

A=filename Assembly listing will be on the file specified. 

N Suppresses program execution; if omitted, program will be 

executed . 

If both the K and L options are used on the same control card, the L option 
overrides the K option. 
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This control card will direct a BASIC program to be compiled and 

executed and generates a listing of the diagnostics on the file m 

OUTPUT. Output from the execution of the program will also go to ^ 



Examples : 

BASIC. 



OUTPUT. Output from the execution of the program 
OUTPUT. 

BASIC(L,B,N) 

This control card will generate relocatable code on LGO, with source 
and diagnostic listings on OUTPUT. The LGO control card will cause 
this program to be executed. 
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SAMPLE BATCH JOBS ( 

I 



The following three jobs illustrate how BASIC is used in batch mode. They 
show how some of the more common features of BASIC are used and are not 
necessarily models for programming or mathematical techniques in problem 
so lving . 

Example 1 : ■ 



This job illustrates the use of the DEF and GOSUB statements for 
calculating the value of PI by the evaluation of a series. 

10 PRINT ''CALCULATE A VALUE FOR PI" 

20 PRINT 

25 Z = 100000 

26 PRINT "NUMBER OF ITERAT IONS ' ' ; Z 

27 PRINT 
30 A = 1 
40 B = 3 
50 DEF FNA (D) = (1/D) 

60 DEF FNB (D) = (D - FNA(B)) M 

70 DEF FNC (D) = (D + FNA (B)) 

80 FOR I = 1 TO Z 

90 A = FNB (A) 

100 GOSUB 150 

110 A = FNC (A) 

120 GOSUB 150 

130 NEXT I 



{ 

c 
t 

€ 



€ 
I 

I 
t 



( 

c 

c 

( 
c 

c 
( 



( 
( 
( 
c 
c 
c 
c 
c 
t 

( 



140 GO TO 170 
150 B=B+2 
160 RETURN 

170 PRINT ' 'PI=» ' ;4*A 
200 END 

The output from this job is: 
CALCULATE A VALUE FOR PI 
NUMBER OF ITERATIONS 100000 
PI = 3.1416 
Example 2: 

This job calculates a table of factorials using a looping technique. 

10 A = 1 

50 Z = 20 

60 FOR I =1 TO Z 

70 A=A*I 

75 PRINT "FACTORIAL ",I,A 

80 NEXT I 

100 END 

The output from this job is: 



FACTORIAL 


1 


1 


FACTORIAL 


2 


2 


FACTORIAL 


3 


6 


FACTORIAL 


4 


24 


FACTORIAL 


5 


120 


FACTORIAL 


6 


720 


FACTORIAL 


7 


5040 


FACTORIAL 


8 


40320 


FACTORIAL 


9 


362880 


FACTORIAL 


10 ' 


3628800 


FACTORIAL 


11 


39916800 
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FACTORIAL 12 479001600 

FACTORIAL 13 6227020800 

FACTORIAL 14 8.71783 E 10 

FACTORIAL 15 1.30767 E 12 

FACTORIAL 16 2.09228 E 13 

FACTORIAL 17 3.55687 E 14 

FACTORIAL 18 6.40237 E 15 

FACTORIAL 19 1 .21645 E 17 

FACTORIAL 20 2.43290 E 18 

Example 3 : 

This job calculates a value for PI using some of BASIC'S standard 
functions . 
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10 PRINT "CALCULATE A VALUE FOR PI" 

20 PRINT 

30 A = -1/2 

50 R = 100 

60 PRINT "RADIUS OF DARTBOARD "; R 

70 Z = 100000 

75 PRINT ''NUMBER OF DARTS THROWN ' ";Z 

76 PRINT 
80 N=(R*2)+1 
90 M=(N*N)-1 
100 H=R*R 

110 DEF FNA (D) = ABS (D-R) 
120 FOR 1=1 TO Z 
130 A=RND (A) 

140 B=INT (A*M) A 

150 Y=INT (B/N) 

160 X=INT (B-(Y*N)) 

170 Y=FNA (Y) 
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180 X=FNA (X) 
190 J= X t 2 + Y**2 
200 IF J > H THEN 220 
210 K=K+1 
220 NEXT I 
230 P=4*K/Z 

240 PRINT ''VALUE OF PI = '<;P 
250 END 

r The output from this job is: 

CALCULATE A VALUE FOR PI 
RADIUS OF DARTBOARD 100 
NUMBER OF DARTS THROWN 100000 
VALUE OF PI = 3.10988 
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BASIC TERMINAL OPERATION 



All BASIC programs submitted for processing on a CONTROL DATA 6000 Series 
computer from a terminal may be executed under the control of the INTERCOM I 
system. This chapter describes a subset of the INTERCOM I commands —those 
used most frequently by the BASIC programmer. The capabilities of the 
INTERCOM I system are detailed in the INTERCOM I Reference Manual. 

INTERCOM I TERMINALS 

INTERCOM I provides interface between users at terminals and a central site 
6000 series computer. The terminals may be Teletype Model 33 or 35 or Model 
217-2 CRT (cathode ray tube). 

TELETYPE 

The programmer types lines of information to the INTERCOM I system on the 
Teletype. INTERCOM I responds on the Teletype at the terminal. The Teletype 
keyboard is similar to an ordinary electric typewriter with a few additional 
keys as described below: 

RETURN Key 

The user must terminate every line of information by pressing the RETURN 
key. This signals to INTERCOM I that the message is complete and returns 
the Teletype carriage to the beginning of the line just typed. INTERCOM I 
responds by sending a line feed to the terminal. This moves the carriage 
to the next line at which point the user may enter input. 

Backspace Arrow ( — ) 

Entry errors can be corrected by using the backspace arrow and typing over 
the erroneous character. 

Example: 

BAX — SJK ■— — IC will be interpreted by 
INTERCOM I as BASIC 

CTRL and X Keys 

Entire lines may be deleted by simultaneously pressing the X and CTRL 
keys. The entire line will be ignored by INTERCOM I, and the Teletype 
carriage will be positioned at the beginning of a new line. 
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# Key 

Once the RETURN key is pressed, the command is accepted by INTERCOM I. M 

However, execution of the command can be aborted by typing a # (pound) on ^ 

the Teletype. INTERCOM I will interrupt processing of the current 
command, re-enter command mode, and accept a new command. 



CRT TERMINAL 



c 

f 

The operation of the 217-2. CRT terminal is similar to the Teletype terminal; ^ 

except that as messages are typed in, they are displayed on the CRT. 

Successive messages appear on successive lines of the CRT until the bottom of -j 

the screen is reached. The display then overwrites information at the top of ^ 

the screen. Three markers indicate where a message is positioned on the 

screen. The following special symbols and keys are used to operate the 217-2 

CRT: 



Beginning-of-Line Symbol (m) 

The solid bar indicates the beginning of the line where the current input 
message begins. 

SEND Key and End-of-Line Symbol (A) 

The SEND key is equivalent to the RETURN key on the Teletype. It 

indicates the end of a message and displays the end-of-line symbol (A) on 

the screen. The information between the™ and the A is transmitted to 
INTERCOM I. 



Underline Marker 



An underline marker indicates to the user where the next input character 
will appear. Each character position of the current message line has an 
underline marker. As characters are entered and displayed this marker 
disappears . 



BKSP Key 



The BKSP key backspaces the entry marker one character position so that 
the user can write over information. 



CLEAR Key 



The CLEAR key erases the contents of the entire screen and positions the 
entry marker and beginning-o f -1 ine indicator at the top of the screen. 



Key 



The % character causes an interrupt of the currently executing command. 
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ENTERING INTERCOM I 

To access a 6000 series computer from a terminal the user must link up with 
the INTERCOM I system. The method of establishing the connection between the 
terminal and the central site computer will vary depending on the type of 
terminal equipment and the connection provided by the telephone company. Once 
the connection is established, INTERCOM I can be accessed by the following: 

1. User indicates that the terminal requires INTERCOM I by typing: 

LOGIN. 

2. INTERCOM I responds with the message: 

TYPE VALID USER NAME- 

3. User responds with a valid user name of no more than 10 alphanumeric 
characters . 

4. INTERCOM I responds: 

TYPE PASSWORD- 

5. User responds with a password of up to 10 alphanumeric characters. 

6. INTERCOM I checks that the user name and password are valid; and if 
so, displays the message: 

COMMAND- 

7. The user/terminal is in command mode and INTERCOM I is waiting for 
input. 



COMMAND MODE 

Under command mode, each message sent to INTERCOM I is interpreted as a 
request to load and execute a program. In general, all SCOPE control cards 
are also INTERCOM I commands. 

After a command is entered, control is given to the program which processes 
that command; and it remains with that program until processing terminates or 
the user voluntarily leaves the program. Command mode is re-established, and 
INTERCOM I is ready to accept another command. 

INTERCOM I performs two kinds of tasks for the user. Under command mode 
INTERCOM I loads a library (utility) program that processes the given command. 
Subsequent commands are transferred to the utility until the latter is 
terminated. The system then reverts to command mode. 

As almost any SCOPE control card is also an INTERCOM I command, such messages 
as REWIND (filename) may be sent from the terminal and executed. 

Primarily, the BASIC user will be concerned with the operation of only one 
INTERCOM I command, SETUP. 
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SETUP 

SETUP is an INTERCOM I utility routine which enables the user to create and ^ 
modify files of information and submit them for execution. Primarily, SETUP 
is a text editor designed for manipulation of program files with the added 
capability to direct the execution of these files. The user can access SETUP M 
by entering the command: ^ 

SETUP . 



The SETUP routine is then loaded and the user is provided with a buffer within 
which he may manipulate his files. SETUP will indicate readiness with the 
message : 

ON AT *hh.mm.ss 

SYSTEM-FORTRAN 

NEW OR OLD FILE 

hh.mm.ss is the time of day in hours, minutes and seconds when SETUP is 
loaded . 

ENTERING BASIC 

After SETUP is loaded, the BASIC user should type: 

SYSTEM 
SETUP will reply: 

NEW SYSTEM- 
BASIC can be entered by typing: 

BASIC 
An alternative form of entering BASIC is: 

SYSTEM/BASIC 



Once BASIC mode is entered, the system will type: 
NEW OR OLD FILE- 



c 
f 
I 
I 
< 



€ 
< 

The slash must be used to separate SETUP directives. The user can anticipate 
questions from SETUP and give several answers, separated by slashes, thereby 
saving time at the terminal. ■ 
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If the user wants to continue work on a prevously saved file he should 
respond : 

OLD 

The terminal will answer: 

OLD FILE NAME 

The user should type a valid SCOPE file name; or alternatively, a new file may 
be created by typing: 

NEW / filename 
SETUP replies: 

READY 
From this point, the file is created or edited. 



BASIC OPERATIONS 

After the terminal is in BASIC mode, BASIC statements may be entered into the 
text buffer as described in the preceding sections of this manual. Each 
statement must have a line number indicating its order in the sequence 
statements. A line may be edited or replaced by entering the same line number 
with a new or altered statement. A line may be deleted by typing the line 
number only. A new line may be inserted by typing a statement with a line 
numbered between the line numbers where the insertion is to be made. 

SETUP DIRECTIVES 

While the terminal is in SETUP mode and before program execution, the user can 
manipulate the contents of the text buffer with the following directives: 

LIST 

The contents of the text buffer may be examined at any time by typing the 
directive LIST. Listing of the text buffer may be terminated before 
completion by typing S. A portion of the text buffer may be listed by typing 
LIST (line number) for only one line, or LIST (line numberl.line number2) to 
indicate the range of the list. 

DELETE 

Portions of the text buffer may be deleted with the DELETE directive: 
DELETE (line number) or DELETE (line numberl.line number2) 
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SAVE 

This directive saves contents of the text buffer for later use. If SAVE is 
not used, the file will be lost when the user leaves the SETUP routine. 

Format: 

SAVE/filename 

If a file already exists with the same name, the new file replaces the old. 



UNSAVE 



A file may be deleted by typing: 
UNSAVE/filename 

RENAME 



The name of the file in the text buffer may be changed by typing: 

RENAME/filename 

When the BASIC program is ready for execution, it may be submitted to the 
BASIC compiler by typing RUN. INTERCOM I will respond with: 

PROGRAM TRANSFERRED TO COMPILER 

Errors in the program will be listed at the terminal along with the message: 



I 
I 
I 
1 
I 
f 
I 
I 
I 



The user then can modify the program in the text buffer by correcting the 

errors. When a program compiles correctly, it is executed immediately; and 

the results are returned to the terminal. If an execution error occurs, a 
diagnostic is printed outfollowed by: 

BASIC EXECUTION ERROR 

The user can modify the program in the text buffer and again resubmit it for 
BASIC compilation and execution until the program is debugged and the user is 
satisfied with the results. Since, at this point, the BASIC program is in the 
text buffer; it may be saved and recalled at any time to be run again. 



SCRATCH 



The SCRATCH directive clears the contents of the text buffer which enables the 
user to work on a new program. Contents of saved files are not altered. 



7-6 
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\ BYE directs exit from the SETUP utility. SETUP will reply: 
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BYE 



OFF AT *hh.mm.ss 
The command mode is re-established. 

TRANS 



c 

A BASIC program read into INTERCOM I from the central site, or created in any 

Cway without using SETUP, can be transferred to the text buffer by the 
directives: 



OLD/filename/TRANS 

This directive causes the BASIC program to be transferred to SETUP so that it 
may be edited by using BASIC line numbers. 



( 
( 

INTERCOM I COMMANDS 

€ INTERCOM I commands of particular relevance to the BASIC user follov 



FILES 

The user can obtain a list of files available to him by typing: 
FILES. 

Only private files and attached permanent files are listed; SCOPE common or 
permanent files accessible through the permission feature are not listed. 

ETL and EFL 

The system default time limit (in octal seconds) and the field length (in 
octal words) for a job can be altered by typing: 

ETL, time limit, and/or EFL, field length 

BASIC 

The BASIC control card enables the user to run a BASIC program without using 
SETUP. If filenamel contains a BASIC source program, the latter can be 
compiled and executed by entering the normal BASIC control card: 

BASIC (I=filenamel) 

The results of a program entered in this manner will not be returned to the 
terminal automatically but will appear on the file named OUTPUT. This file 
can be examined by using the LIST directive in SETUP. 
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CONNECT 



DISCQNT 

A file may be disconnected from a terminal with this statement: 

DISCONT (filename) 

Any subsequent use of the file named in this statement will refer to mass 
storage . 



f 
t 



t 
f 

c 



This command connects any file to the terminal. 

To direct any output from filename2 to the terminal: 

CONNECT (filename2) 
To obtain printed output at the terminal: 

BASIC (I=f ilenamel, L=f ilename2) 
To obtain error listing and execution output only: m 

BASIC (I=f ilenamel , K=filename2) 
A user may create his own object program with the command: ^ 

BASIC (I=f ilenamel, K=filenamel, B=filenatne3) 
The object program can be executed at any time with the commands: 

CONNECT (filenamel, f il ename2 , . . . ) 



< 

4 

{ 

c 



LEAVING INTERCOM I 

The user can exit from the INTERCOM I system by entering the command: V 

LOGOUT. 



The system will respond: 

YOU NO LONGER OWN ANY FILES 

Finally the system will print the date, time of day, and time consumed during 
the session with the system. 

SAMPLE TERMINAL SESSION 

The following sample BASIC job run under the INTERCOM I system illustrates M 
some of the INTERCOM I commands section and the creation of a BASIC program ^ 
using the SETUP utility. 



€ 
4 
4 



7 _ 8 60305000 A 



C 
4 
1 



( 

( 
( 
( 
( 
( 
( 
c 
( 
( 

[ 

c 
( 
c 
c 

c 
c 
c 
c 



r 



LOGIN, 

TYPE VALID USER NAME - BROWN 

TYPE PASSWORD - CHARLIE 

COMMAND - SETUP. 

ON AT *10.30.0Q 

SYSTEM FORTRAN 

NEW OR OLD FILE - SYSTEM/ BASIC/NEW/ BAS PROG 

READY 

10 PRINT "TYPE A NUMBER"; 

20 INPUT X 

30 LET X=l 

40 FOR 1=1 to N~X 

50 F=F*I 

30 F = l 

60 PRINT "FACTORIALS; "IS"F 

70 GO TO 10 

80 END 

RUN 

PROGRAM TRANSFERRED TO COMPILER 

FOR WITHOUT NEXT AT 40 

BASIC COMPILATION ERRORS 

READY 

55 NEXT I 

25 IF X=0 THEN 80 

RUN 

PROGRAM TRANSFERRED TO COMPILER 

TYPE A NUMBER ? 3 

FACTORIAL 3 is 6 

TYPE A NUMBER ? 

READY 

LIST 

10 PRINT "TYPE A NUMBER"; 

20 INPUT X 

25 IF X=0 THEN 80 

30 F=l 

40 FOR 1=1 TO X 

50 F=F*I 

55 NEXT I 

60 PRINT "FACTORIAL"X; "IS"F 

70 GO TO 10 

80 END 

READY 

SAVE 

READY 

BYE 

OFF AT *10.50.33 

COMMAND - CONNECT (BASOUT) 

COMMAND - BASIC ( I=BASPROG, K=BASOUT) 

TYPE A NUMBER ? 6 

FACTORIAL 6 IS 720 

TYPE A NUMBER ? 

COMMAND - LOGOUT. 

YOU NO LONGER OWN ANY FILES 

CP TIME - 3. 103 

PP TIME - 6.002 

10/27/69 OFF AT * 11.01.16 



60305000 A 7-9 



( 
( 
( 
( 
( 
( 
c 
( 
( 
c 

c 

c 
c 
c 
c 
c 
c 
c 
c 

( 



BASIC 
Char. 



A 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 

P 

Q 

R 
S 
T 
U 
V 

w 

X 

Y 
Z 

1 
2 
3 
4 
S 
6 
7 
8 
9 
+ 



/ 

c 
) 

unused 

A 

i 



CHARACTER SET 



Display 


Card 


Code 


Code 


00 




01 


12-1 


02 


12-2 


03 


12-3 


04 


12-4 


05 


12-5 


06 


12-6 


07 


12-7 


10 


12-8 


11 


12-9 


12 


11-1 


13 


11-2 


14 


11-3 


15 


11-4 


16 


11-5 


17 


11-6 


20 


11-7 


21 


11-8 


22 


11-9 


23 


0-2 


24 


0-3 


25 


0-4 


26 


0-5 


27 


0-6 


30 


0-7 


31 


0-8 


32 


0-9 


33 





34 


1 


35 


2 


36 


3 


37 


4 


40 


5 


41 


6 


42 


7 


43 


8 


44 


9 


45 


12 


46 


11 


47 


11-8-4 


50 


0-1 


51 


0-8-4 


52 


12-8-4 


S3 


11-8-3 


54 


8-3 


55 


space 


56 


0-8-3 




or 6-8 


57 


12-8-3 



Printer 



A 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 

P 

Q 

R 
S 
T 
U 
V 

w 

X 

Y 
Z 

1 
2 
3 
4 
5 
6 
7 
8 
9 
+ 



/ 

c 
) 

$ 

A 

> 

i 



TTY 



A 
B 
C 
D 

E 
F 
G 
H 
I 
J 
K 
L 
M 
N 

P 

Q 

R 
S 
T 
U 
V 

w 

X 

Y 
Z 

1 
2 
3 
4 
5 
6 
7 
8 
9 
+ 



/ 

c 
) 

$ 

A 

t 

I 



217-2 



A 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 

P 

Q 

R 
S 
T 
U 
V 

w 

X 
Y 

z 



1 

2 
3 

4 
5 
6 

7 
8 
9 

+ 



A 

i 
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60 


0-8-6 


unused 


61 


8-7 


unused 


62 


0-8-2 


unused 


63 


8-2 


unused 


64 


8-4 


unused 


65 


0-8-5 


unused 


66 


11-0 
or 11-8 


unused 


67 


0-8-7 




70 


11-8-5 


unused 


71 


11-8-6 




72 


12-0 
or 12-8 




73 


11-8-7 


unused 


74 


8-5 


unused 


75 


12-8-5 


? 


76 


12-8-6 




77 


12-8-7 



* 


1 


t 


— 


reserved 


A 


V 


\ 


V 


A 
t 


t 


A 
I 


\ 


reserved 


1 


< 


< 


< 


> 


> 


> 


<z 


reserved 


<: 


> 


@ 


> 



Display code characters not used by the BASIC system may be used within 
string constants or remarks. 

Display code characters 65, 71 and 74 are used by the INTERCOM I system for 
special functions and cannot be used at a Teletype terminal. 

Display code character 76 is interpreted as an interrupt character from a 
217-2 and cannot be input from a CRT terminal. 
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DIAGNOSTICS 



B 



All diagnostics produced by the BASIC system at compile and execution time are 
printed in the following format: 

message AT line-number 

The line number indicates the statement in error, 

COMPILE TIME DIAGNOSTICS 

The following messages may be produced during program compilation. All 
compile time diagnostics inhibit execution of the program and BASIC writes a 
dayfile message: BASIC COMPILATION ERRORS. 



Message 

DUPLICATE LINE NO 
END NOT LAST 
FOR NEST TOO DEEP 
FOR WITHOUT NEXT 

ILLEGAL BOUND 
ILLEGAL CHARACTER 
ILLEGAL FN NAME 

ILLEGAL FILE NAME 
ILLEGAL LINE NO 
ILLEGAL LINE REF 

ILLEGAL NUMBER 
ILLEGAL STATEMENT 

ILLEGAL STRING 
ILLEGAL WORD 



Error 

Same line number used twice 

END statement incorrectly placed 

More than 10 nested for statements 

FOR statement has no balancing NEXT 
statement 

DIM statement declared variable >131071 

Unrecognizable character 

User function name not of the form FNx, 
x is any alphabetic character 

Name is not allowed as a SCOPE file name 

Line number greater than 99999 

Incorrectly written line number, or line 
number referenced greater than 99999 

Numeric constant incorrectly written 

Statement does not begin with a recog- 
nizable word or is written incorrectly 

String constant incorrectly written 

Unrecognizable word 
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LINES OUT OF ORDER 
MISSING LINE NO 
NEXT WITHOUT FOR 

NO END STATEMENT 
OUT OF SPACE* 

PROGRAM TOO LARGE* 
PROGRAM TOO LONG* 

READ WITHOUT DATA 

RECURSIVE FN 
TOO MANY FILES 
UNDEFINED FN REF 
UNDEFINED LINE REF 



Line numbers not in ascending order 

Statement written without a line number 

NEXT statement has no balancing FOR 
statement 

Program does not have END statement 

Program too large to continue checking 
source statements; compilation stops 

Compiled program too large to execute 
in the field length given to the BASIC 
compiler 

Program too long to compile, but the com- 
piler continues to check the source 
statements 

Program containing a READ statement has no 
DATA statements 

Recursive DEF statement 

More than three file names 

Undefined user function 

Line number referenced does not exist 



*If any of these errors occur, the program should be recompiled with a larger 
field length. No maximum size is defined for a BASIC program, as the limits 
depend entirely on the field length given to the BASIC system. If, at the 
beginning of a compilation, BASIC determines that the field length is too 
small to attempt compilation, the dayfile message BASIC FIELD LENGTH TOO SHORT 
is written and the compilation is terminated. 
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EXECUTION TIME DIAGNOSTICS 

The following diagnostics may 
terminate execution, and BASIC 

Message 

ARGUMENT IS POLE IN TAN 

ARGUMENT NEGATIVE IN LOG 

ARGUMENT NEGATIVE IN SQR 

ARGUMENT TOO LARGE IN COS 

ARGUMENT TOO LARGE IN EXP 

ARGUMENT TOO LARGE IN SIN 

ARGUMENT TOO LARGE IN TAN 

ARGUMENT ZERO IN LOG 

BASIC SYSTEM ERROR 

DIVISION BY ZERO 
END OF DATA 

END OF DATA ON FILE 

GOSUB NEST TOO DEEP 
ILLEGAL DEVICE FOR FILE 
ILLEGAL INPUT ON FILE 



occur during execution of a program. All 
writes a dayfile message BASIC EXECUTION ERROR. 

Error 



ILLEGAL NUMBER ON FILE 
ILLEGAL OUTPUT ON FILE 

INFINITE VALUE 

MATRIX DIMENSION ERROR 



Malfunction of BASIC system. Please 
report the problem 



READ statement executed when all the DATA 
statements are exhausted 

READ FILE or INPUT FILE statement 
executed after file data exhausted 

More than 40 GOSUB's nested 

File assigned to a non-mass storage device 

Type of input/output statement changed 
without repositioning file to beginning 
of information, or an input request 
follows an output request on the same 

file 

INPUT FILE statement attempted to read 
a file in incorrect format 

Type of input/output statement changed 
without repositioning the file to begin- 
ning of information 



Dimension inconsistency in one of the 
MAT statements 



6030S000 A 



B-3 



NEARLY SINGULAR MATRIX Attempt to invert a singular or nearly 

singular matrix 

NEGATIVE NUMBER TO A POWER 

POWER TOO LARGE 

RETURN BEFORE GOSUB RETURN statement has been executed and no 

GOSUB is in effect 

SUBSCRIPT ERROR Attempt to reference an element outside 

bounds of an array 

TIME EXCEEDED Program exceeded its time limit 

TRANSMISSION ERROR ON FILE BASIC system unable to complete an input/ 

output request 

UNDEFINED VALUE 

The following messages may occur after the data typed in response to an INPUT 
request from the terminal has been checked. The BASIC system will print a 
question mark and the user should retype the data. 

ILLEGAL NUMBER, RETYPE INPUT 

TOO MUCH DATA, RETYPE INPUT 

TRANSMISSION ERROR, RETYPE INPUT 
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INDEX OF BASIC STATEMENTS 



c 


numeric constant 


m 


matrix 


e 


expression 


r 


relational operator 


d 


del imiter 


sv 


scalar variable 


fn 


file name 


ufn 


user function name 


i 


identifier 


V 


variable 


In 


line number 







Items enclosed in brackets are optional. 



( 

( 
( 

( 

( 

The following alphabetical list of BASIC statements gives the formats 
# functions, and pages on which they appear. Throughout this appendix the 

\ following abbreviations are used: 

( 
( 
( 
( 

c 

i 

c 
( 
( 
c 
c 
c 
c 
c 
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Statement Format 
DATA cl ,c2 ,c3, . , . en 

DEF ufn(i) = e 

DIM vl,v2 ,v3, , ,.vn 

END 

FOR sv = el to e2 [STEP e3] 

GO TO In 

GOSUB In 

IF elr e2 THEN In 

INPUT vl,v2,v3, . * »vn 
INPUT FILE (fn) vl,v2,v3, , , ,vn 
[LET] vl = v2 = v3. ,,vn = e 

MAT ml = m2 + m3 
MAT ml = m2 - m3 
MAT ml = m2 * m3 

MAT ml = (e) * m2 

MAT m = CON [(el[ ,e2] )] 

MAT m = IDN(e) 

MAT ml = INV(m2) 

MAT ml = TRN(m2) 

MAT m = ZER(e) 



Function 

Creates a file of data internal 
to the BASIC program 

Defines a new function to be used 
within a BASIC program 

Declares the dimensions of an 
array variable 

Terminates a program 

Begins a program loop; this state- 
ment must be saved with a NEXT 
statement 

Interrupts the normal sequence of 
program execution and transfers 
program control to indicated line 
number 



Transfers program control to a sub- 3-3 
routine beginning at line number 
indicated 

Transfers program control to 2-4 
indicated line number if certain 
conditions are met 

Enters data from a terminal 4-7 

Enters a file from a terminal 4-8 

Assigns a value to a variable during 2-3 
program execution 

Matrix addition 5-1 

Matrix subtraction 5-1 

Multiplies one matrix by another 5-1 
matrix 

Multiplies a matrix by an expression 5-1 

Creates a matrix of all ones 5-2 

Creates an identity matrix 5-2 

Inverts a matrix 5-1 

Transposes a matrix 5-1 

Creates a matrix of zeros 5-2 





f 




f 


Page No. 




4-1 


c 


3-3 


f 


2-2 


1 


2-7 
2-4 
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Statement Format Function Page No, 



(MAT READ ml [(el[,e2])] , Reads matrices from the internal 5-2 

m2 [(e3 [,e4])] ,m3... data file 



MAT PRINT mid m2d m3,.. [d] Prints matrices on the terminal 5-3 

NEXT sv Terminates a program loop or incre- 2-4 

ments the value tested by the loop 

NODATA In Tests data pointer for increment 4-3 

beyond end of data block 

NODATA FILE (fn)ln Transfers program control to spec- 4-9 

ified line number if named file is 
positioned at end of information 

PRINT eld e2d e3d.,.en[d] Prints data at terminal 4-3 

PRINT FILE (fn) eld e2d e3[d],.. Prints data on specified file 4-8 

READ vl, v2 , v3,. i4 vn Accesses data created by DATA 4-1 

statements 

READ FILE (fn) vl, v2 , v3 , . . . vn Accesses data created by WRITE 4-8 

FILE statements 

\ REM any string of valid 6000 Inserts explanatory remarks into 2-7 

series display code characters a program 



RESTORE Reinitializes data pointer to the 4-2 

first word of the data block 

RESTORE FILE (fn) Sets named file to beginning of 4-9 

information 



RETURN Resumes execution at statement 3-3 

following companion GOSUB state- 
ment 

STOP Terminates program execution at 2-7 

places other than the END 
statement 



( 
( 

c 

(WRITE FILE (fn) e 1 , e2 , e 3 , . , . en Writes expression values onto 4-8 

named file 

( 
( 
( 
( 
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INDEX OF INTERCOM I COMMANDS AND DIRECTIVES 



Alphabetical list of SCOPE 3 and INTERCOM I commands as well as SETUP 
directives used in processing BASIC programs: 



Command /Directive 
Backarrow key 

BKSP key 

BASIC 
BYE 
CLEAR key 

CONNECT (fn) 
DELETE(lnl [,ln2] ) 
DISCONT (fn) 



( 


EFL, field length 




ETL.time limit 


( 


FILES 


( 


LIST [lnl [,ln2] )] 


( 


LOGIN. 


LOGOUT. 


c 


NEW 


( 


Percent (%) key 


Pound (#) key 


( 


OLD 


( 


RENAME 


c 
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Function 

Deletes last character of current 
input line 

Deletes last character of current 
input line 

Call for BASIC compiler 

Exit from SETUP routine 

Erases entire contents of display 
screen 

Connects file named to user terminal 

Erases portions of the text buffer 

Disconnects file named from the 
terminal 

Changes system default field length 

Changes the system default time limit 

Obtains a list of files available to 
the user 

Displays current contents of text 
buffer 

Calls for INTERCOM I system 

Exits INTERCOM I system 

Creates a new file 

Inhibits the execution of the 
current command 

Inhibits the execution of the 
current command 

Retrieves a previously saved file 

Changes name of file in text buffer 



Page No . 

7-1 

7-2 

7-4, 7-7 

7-7 

7-2 

7-8 
7-5 
7-8 

7-7 
7-7 
7-7 

7-5 

7-3 
7-8 

7-5 
7-2 

7-2 

7-5 
7-6 



D-l 



I 
I 

4 
I 

SAVE Saves contents of text buffer 7-6 

SCRATCH Clears text buffer 7-6 (f 

SEND key Terminates a line of input causing 7-2 

system to interpret and act upon 
input received 



RETURN key Terminates a line of input and causes 7-1 

the system to act upon input 
received 

RUN Causes current program to be compiled 7-6 

and executed 



SETUP Calls for SETUP utility routine 7-4 

SYSTEM Indicates change of language 7-4 

TRANS Transfers a program created without 7-7 

SETUP into the text buffer 

UNSAVE Deletes file currently in text buffer 7-6 

X and CTRL keys Deletes the entire current input 7-1 

line when used simultaneously 

System requests for information: 

System Request User Response Page No. 

Commands: INTERCOM I Command: 

NEW OR OLD FILE- OLD to continue work on a previously 7-4 

saved file; NEW to create a new file 

NEW FILE NAME- Name of file to be created 7-5 

OLD FILE NAME- Name of previously saved file 7-5 

NEW SYSTEM- Name of the programming language 7-4 

TYPE VALID USER NAME- Valid user name of no more than 10 7-3 

alphanumeric characters 

TYPE PASSWORD- User's password of up to 10 alpha- 7-3 

numeric characters 



I 
I 
< 

i 

< 
< 

i 
t 

4 
4 
I 
4 
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( 
( 

ON AT *hh.mm.ss SETUP is ready for use. Time of day 7-4 

SYSTEM -system name in hours, minutes, seconds. System 

(name is that of the system currently 
in control. 



System messages other than diagnostics, which will appear at the terminals 
Message Significance Page No. 



READY SETUP is ready to handle the creation 7-5 

or manipulation of a file in the 
text buffer. 



PROGRAM TRANSFERRED Program in the text buffer is 7-6 

TO COMPILER transferred to the appropriate 

compil er 



( 
( 

J OFF at *hh.mm.ss User is returned to command mode. 7-7 

( 
( 

I 

( 
( 
( 

c 
c 
c 
c 
c 
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INDEX 



Alphanumeric 

String Constants, Quote marks Alphanumeric output, 4-4 
Arithmetic 

Arithmetic Expressions, 1-3 

Arithmetic Expressions, use of Parentheses, Precedence, 1-4 

LET statement, Arithmetic Replacement, 2-3 
Array 

Array Variables, Subscripts, 1-2 
Arrays 

Matrix arithmetic, Arrays and Functions, 5-1 



BASIC 

BASIC control card, 7-7 
BASIC 

Dartmouth BASIC, vii 
BATCH 

BATCH operation Control Card, 6-1 

Sample BATCH Jobs, 6-2 
BYE 

BYE command, 7-7 



Card 

BATCH operation Control Card, 6-1 
CDC 

CDC 217-2 user CRT terminals used with BASIC, 7-2 
Character 

Character set, A-l 
CONNECT 

CONNECT command, 7-8 
Comma 

PRINT Zones, use of Comma and Semicolon, 4-5 
Command 

Command Mode, 7-3 
Comments 

REM statement, Remarks or Comments, 2-7 
Constants 

SCOPE and Constants, vii 

Numeric Constants, 1-1 

String Constants, Quote marks Alphanumeric output, 4-4 
Control 

BATCH operation Control Card, 6-1 
CRT 

CDC 217-2 user CRT terminals used with BASIC, 7-2 
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GO 

GO TO statement, 2-4 
GOSUB 

Subroutines GOSUB and RETURN statements, 3-3 
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DATA 

DATA statement, 4-1 

Internal DATA File INPUT OUTPUT, 4-1 
Dartmouth 

Dartmouth BASIC, vii 
DEF 

User Functions, DEF statement, 3-2 
DELETE 

LIST, DELETE and SAVE UNSAVE file commands, 7-5 
DIM 

DIM statement, Dimensioning, 2-2 
DISCONT 

DISCONT command, 7-8 ■ 

Diagnostics 

List of Diagnostics, B-l 
Dimensioning M 

Implicit Dimensioning, 1-3 ^ 

DIM statement, Dimensioning, 2-2 

EFL ™ 

ETL and EFL, 7-7 
END m 

END statement, 2-7 ■ 

ETL 

ETL and EFL, 7-7 
Expressions 

Arithmetic Expressions, 1-3 

Arithmetic Expressions, use of Parentheses, Precedence, 1-4 

Relational Expressions, 1-5 



File 

SAVE and UNSAVE File commands, 7-6 

RESTORE File statements, 4-9 
File 

NODATA File, 4-9 
File 

Internal DATA File INPUT OUTPUT, 4-1 

File INPUT OUTPUT, 4-7 
File 

READ File, WRITE file statements, 4-8 

INPUT File, PRINT file statements, 4-8 
FOR £ 

FOR and NEXT statements. Looping, 2-4 ^ 

Format 

Format of Numeric Output, 4-4 
Funct ions 

Functions, Standard or Library, 3-1 

User Functions, DEF statement, 3-2 

Matrix arithmetic, Arrays and Functions, 5-1 
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IF 

CIF statement, 2-4 
Implicit 
Implicit Dimensioning, 1-3 
INPUT 

INPUT statement, 4-7 

Internal DATA File INPUT OUTPUT, 4-1 

INPUT File, PRINT file statements, 4-8 

(File INPUT OUTPUT, 4-7 
Input/output 
Matrix Input/output MAT READ and PRINT, 5-2 
Input 

Terminal Input Output, 4-3 
Internal 

Internal DATA File INPUT OUTPUT, 4-1 
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LET 

LET statement, Arithmetic Replacement, 2-3 
LIST 

LIST, DELETE and SAVE UNSAVE file commands, 7-5 
Library 

Functions, Standard or Library, 3-1 
Line 

Line Numbers, 2-1 
List 

List of Diagnostics, B-l 
LOGIN 

LOGIN, 7-3 
LOGOUT 

LOGOUT, 7-8 
Looping 

FOR and NEXT statements. Looping, 2-4 
Loops 

Nesting Loops, 2-6 



MAT 

MAT PRINT, 5-3 

Matrix Input/output MAT READ and PRINT, 5-2 
Matrix 

Matrix arithmetic, Arrays and Functions, 5-1 
Matrix Input/output MAT READ and PRINT, 5-2 



Names 

Variable Names, 1-2 



NEW 

NEW, OLD file commands, 7-5 
NEXT 



CFOR and NEXT statements. Looping, 2-4 
Nesting 
Nesting Loops, 2-6 

c 
c 
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NODATA 

NODATA statement, 4-3 

NODATA File, 4-9 
Numbers 

Line Numbers, 2-1 
Numeric 

Numeric Constants, 1-1 

Format of Numeric Output, 4-4 



Parentheses 

Arithmetic Expressions, use of Parentheses, Precedence, 1-4 
PRINT 

PRINT statement, 4-3 

INPUT File, PRINT file statements, 4-8 

PRINT Zones, use of Comma and Semicolon, 4-5 
PRINT 

MAT PRINT, 5-3 
Precedence 

Arithmetic Expressions, use of Parentheses, Precedence, 1-4 



Quote 

String Constants, Quote marks Alphanumeric output, 4-4 



READ 
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c 
f 
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I 



OLD 

NEW, OLD file commands, 7-5 
OUTPUT 

Internal DATA File INPUT OUTPUT, 4-1 

File INPUT OUTPUT, 4-7 
Output ^ 

Format of Numeric Output, 4-4 K 

Terminal Input Output, 4-3 
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Matrix Input/output MAT READ and PRINT, 5-2 ^ 

READ statement, 4-1 

READ File, WRITE file statements, 4-8 
REM 

REM statement, Remarks or Comments, 2-7 
RENAME, 

RENAME, 7-6 
RESTORE 

RESTORE statement, 4-2 

RESTORE File statements, 4-9 
RETURN 

Subroutines GOSUB and RETURN statements, 3-3 
Relational 

Relational Expressions, 1-5 
Remarks 

REM statement, Remarks or Comments, 2-7 
Replacement 

LET statement, Arithmetic Replacement, 2-3 
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SAVE 

SAVE and UNSAVE File commands, 7-6 
Sample 

Sample Terminal session, 7-8 

Sample BATCH Jobs, 6-2 
SCOPE 

SCOPE and Constants, vii 
SCRATCH 

SCRATCH command, 7-6 
SETUP 

SETUP, 7-4 
Semicolon 

PRINT Zones, use of Comma and Semicolon, 4-5 
STOP 

STOP statement, 2-7 
Standard 

Functions, Standard or Library, 3-1 
String 

String Constants, Quote marks Alphanumeric output, 4-4 
Subroutines 

Subroutines GOSUB and RETURN statements, 3-3 
Subscripts 

Array Variables, Subscripts, 1.-2 
System 

System, 7-4 



Teletype 

Teletype INTERCOM terminals used with BASIC, 7-1 
Terminal 

Sample Terminal session, 7-8 

Terminal Input Output, 4-3 
TRANS 

TRANS command, 7-7 



UNSAVE 

SAVE and UNSAVE File commands, 7-6 
User 

User Functions, DEF statement, 3-2 



Variable 

Variable Names, 1-2 

WRITE 

READ File, WRITE file statements, 4-8 



Zones 

PRINT Zones, use of Comma and Semicolon, 4-5 
217-2 

CDC 217-2 user CRT terminals used with BASIC, 7-2 
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